﻿Imports System.Xml
Imports System.IO

Public Class XmlFunction
    'Viết tất cả các chức năng sử lý xml tại đây
    'Lưu ý viết thì nhớ cho chú thích ai viết - làm gì

    'read xml

    '----Hàm đếm node---- trả về tổng số node --- dùng để đặt id cho thuộc tính node
    Public Function GetRecord(ByVal file_name) As Integer

        Try
            Dim xmldoc As New XmlDocument
            Dim Doc As New XmlDocument
            
            xmldoc.Load(file_name)
            Dim node As XmlNode = xmldoc.SelectSingleNode("/RootSubject")
            Dim a As String = node.ChildNodes(node.ChildNodes.Count() - 1).Attributes("id").Value
            Return Int64.Parse(a)
        Catch ex As Exception

        End Try

    End Function
End Class
